home *** CD-ROM | disk | FTP | other *** search
/ The Disc - MacWorld 1995 / PowerComputing (The Disc)(MacWorld 1995).ISO / mac / CDFACTOR / HCfactor / HumanCode / HumanCode.DXR / 00053_sparkle parent for MPC.ls < prev    next >
Encoding:
Text File  |  1995-07-14  |  1.3 KB  |  44 lines
  1. property sparklePointer, sparkleOffScreenPointer, sparkleAreaPointer
  2.  
  3. on birth me
  4.   set sparklePointer to EMPTY
  5.   set sparkleOffScreenPointer to EMPTY
  6.   return me
  7. end
  8.  
  9. on loadsparkle me
  10.   global gmasterfolderpath, gFileName
  11.   set sparklePointer to blitpict(mnew)
  12.   set sparkleOffScreenPointer to blitpict(mnew)
  13.   set sparklePictPath to gmasterfolderpath & getProp(gFileName, #sparkle)
  14.   sparklePointer(mInit, sparklePictPath, 0, 0, 0, 0, 0)
  15.   sparkleOffScreenPointer(mInit, EMPTY, 1, 0, 0, 256, 32)
  16. end
  17.  
  18. on sparkle me, H, V
  19.   puppetSound("Sparkle.snd")
  20.   updateStage()
  21.   set cL to H - 16
  22.   set cT to V - 16
  23.   set cR to H + 16
  24.   set cb to V + 16
  25.   set sparkleAreaPointer to blitpict(mnew)
  26.   sparkleAreaPointer(mInit, EMPTY, 1, cL, cT, cR, cb)
  27.   repeat with n in [0, 32, 64, 96, 128, 160, 192, 224]
  28.     sparkleAreaPointer(mDraw, 0, 0, 32, 32, sparkleOffScreenPointer, n, 0, n + 32, 32, 300, 3, 0, 1)
  29.   end repeat
  30.   sparklePointer(mDraw, 0, 0, 224, 32, sparkleOffScreenPointer, 0, 0, 224, 32, 0, 3, 0, 1)
  31.   repeat with n in [0, 32, 64, 96, 128, 160, 192, 224]
  32.     sparkleOffScreenPointer(mDraw, n, 0, n + 32, 32, sparkleOffScreenPointer, cL, cT, cR, cb, 300, 3, 1, 1)
  33.   end repeat
  34.   sparkleAreaPointer(mdispose)
  35.   repeat while soundBusy(1)
  36.   end repeat
  37.   puppetSound(0)
  38. end
  39.  
  40. on killsparkle me
  41.   sparklePointer(mdispose)
  42.   sparkleOffScreenPointer(mdispose)
  43. end
  44.